home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpnov6.zip / TOOLHDR.DOC < prev   
Text File  |  1991-01-31  |  7KB  |  171 lines
  1. unit NovTools;
  2.  
  3. interface
  4.  
  5. uses NovAPI,IPXLIB,DOS;
  6.  
  7. const
  8.    NONE                   = 0;
  9.    GENERAL_FAILURE        = -1;
  10.    BAD_DRIVE_LETTER       = -2;
  11.    INVALID_PATH           = -3;
  12.    MAX_8_SERVERS          = -4;
  13.    SERVER_NOT_ON_NETWORK  = -5;
  14.    SERVER_MAX_CONNECTIONS = -6;
  15.    NO_FREE_DRIVES         = -7;
  16.    OBJECT_NOT_FOUND       = -8;
  17.    LOGIN_FAILURE          = -9;
  18.    LOGIN_SCRIPT_FAILURE   = -10;
  19.    NO_MORE_OBJECTS        = -11;
  20.    NO_MORE_GROUPS         = -12;
  21.    NO_MORE_USERS          = -13;
  22.    NO_MORE_QUEUES         = -14;
  23.    NO_MORE_PSERVERS       = -15;
  24.    NO_MORE_FSERVERS       = -16;
  25.    NO_MORE_QUSERS         = -17;
  26.    NO_MORE_MEMBERS        = -18;
  27.    UNABLE_TO_MODIFY_GROUP = -19;
  28.  
  29.    SUNDAY    = 0;
  30.    MONDAY    = 1;
  31.    TUESDAY   = 2;
  32.    WEDNESDAY = 3;
  33.    THURSDAY  = 4;
  34.    FRIDAY    = 5;
  35.    SATURDAY  = 6;
  36.  
  37.    EMPTY_BANNER = #0'            ';
  38.  
  39. type
  40.    string128 = string[128];
  41.  
  42.    SearchWorkSpace = array[1..78] of byte;
  43.  
  44.    ObjectSearchRecord = RECORD
  45.          Reserved       : SearchWorkSpace;
  46.          Name           : string47;
  47.          ObjectType     : integer;
  48.          ObjectFullName : string128;
  49.          ID             : longint;
  50.          Flags          : byte;
  51.          Security       : byte;
  52.          HasProperties  : boolean;
  53.          NetworkAddress : InternetworkAddress;
  54.       end;
  55.  
  56.    DateRec = RECORD
  57.          Year  : 0..255;
  58.          Month : 1..12;
  59.          Day   : 1..31;
  60.       end;
  61.  
  62.    TimeRec = RECORD
  63.          Hour    : 0..23;
  64.          Miniute : 0..59;
  65.          Second  : 0..59;
  66.       end;
  67.  
  68.    DateTimeRec = RECORD
  69.          Year   : 0..255;
  70.          Month  : 1..12;
  71.          Day    : 1..31;
  72.          Hour   : 0..23;
  73.          Minute : 0..59;
  74.          Second : 0..59;
  75.       end;
  76.  
  77.    LoginTimeArray = array[1..42] of byte;
  78.  
  79.    LoginControlRecord = RECORD
  80.          AccountExpirationDate      : DateRec;
  81.          AccountDisabled            : boolean;
  82.          PasswordExpirationDate     : DateRec;
  83.          GraceLoginsRemaining       : byte;
  84.          DaysBetweenPasswordChanges : integer;
  85.          MaxGraceLoginsAllowed      : byte;
  86.          MinimumPasswordLength      : byte;
  87.          unknown1                   : byte;
  88.          MaxConcurrentConnections   : byte;
  89.          LoginTimes                 : LoginTimeArray;
  90.          LastLoginTime              : DateTimeRec;
  91.          PasswordControl            : (USER_CHANGE_ANY,    USER_NO_CHANGE_ANY,
  92.                                        USER_CHANGE_UNIQUE, USER_NO_CHANGE_UNIQUE);
  93.          unknown                    : array[1..6] of byte;
  94.          BadLoginCount              : byte;
  95.          AccountResetTime           : longint;   (* minute number, since 1/1/85 *)
  96.          LastIntruderAddress        : InternetworkAddress;
  97.       end;
  98.  
  99.    FlagMethods = (ADD,REPLACE,REMOVE);
  100.  
  101. var
  102.    ToolResult : integer;
  103.  
  104. procedure FirstBinderyObject(SearchMask : string47;
  105.                              var FoundObject : ObjectSearchRecord);
  106. procedure NextBinderyObject(var FoundObject : ObjectSearchRecord);
  107. procedure FirstUser(UserMask : string47;
  108.                     var FoundObject : ObjectSearchRecord);
  109. procedure NextUser(var FoundObject : ObjectSearchRecord);
  110. procedure FirstGroup(GroupMask : string47;
  111.                     var FoundObject : ObjectSearchRecord);
  112. procedure NextGroup(var FoundObject : ObjectSearchRecord);
  113. procedure FirstQueue(QueueMask : string47;
  114.                     var FoundObject : ObjectSearchRecord);
  115. procedure NextQueue(var FoundObject : ObjectSearchRecord);
  116. procedure FirstPrintServer(PServerMask : string47;
  117.                     var FoundObject : ObjectSearchRecord);
  118. procedure NextPrintServer(var FoundObject : ObjectSearchRecord);
  119. procedure FirstFileServer(FServerMask : string47;
  120.                     var FoundObject : ObjectSearchRecord);
  121. procedure NextFileServer(var FoundObject : ObjectSearchRecord);
  122.  
  123.  
  124. procedure FirstGroupImIn(WhichObject : string47; WhatType : integer;
  125.                          var FoundGroup : ObjectSearchRecord);
  126. procedure NextGroupImIn(var FoundGroup : ObjectSearchRecord);
  127. procedure FirstGroupMember(WhichGroup : string47;
  128.                            var FoundMember : ObjectSearchRecord);
  129. procedure NextGroupMember(var FoundMember : ObjectSearchRecord);
  130.  
  131.  
  132. procedure FirstQueueUser(WhichQueue : string47;
  133.                          var FoundUser : ObjectSearchRecord);
  134. procedure NextQueueUser(var FoundUser : ObjectSearchRecord);
  135. procedure FirstQueueOperator(WhichQueue : string47;
  136.                          var FoundOperator : ObjectSearchRecord);
  137. procedure NextQueueOperator(var FoundOperator : ObjectSearchRecord);
  138. procedure FirstQueueServer(WhichQueue : string47;
  139.                          var FoundServer : ObjectSearchRecord);
  140. procedure NextQueueServer(var FoundServer : ObjectSearchRecord);
  141.  
  142.  
  143. function  Attach(ServerName : string; LoginDrive : char) : integer;
  144. procedure AddMemberToGroup(WhichObject : string47; WhatType : integer;
  145.                            WhichGroup  : string47);
  146. procedure Capture(WhichLPT : LPTNames;  WhichQueue : string;
  147.                      FormNumber : shortint; Copies : integer;
  148.                      TabSize : shortint; BannerTitle,BannerName : BannerArray;
  149.                      MaxLines,MaxColumns : integer;
  150.                      PrintBanner,DoFormFeed,Keep,AutoEndCap : boolean;
  151.                      TimeOutValue : integer);
  152. procedure DOSPathToNetworkPath(DOSPath : string; var ServerName,Volume,Path : string);
  153. procedure EndCap(WhichLPT : LPTNames);
  154. function  FileServerName(ConnectionID : integer) : string;
  155. procedure Flag(AFile : string; ChangeMethod : FlagMethods; Attribs,ExAttribs : byte);
  156. function  FullName(WhichObject : string47; WhatType : integer) : string;
  157. procedure GetObjectLoginControl(WhichObject : string47; WhatType : integer;
  158.                                 var LoginInfo : LoginControlRecord);
  159. procedure Map(DriveLetter : char; NetworkPath : string);
  160. procedure MapDel(DriveLetter : char);
  161. procedure MapTemporary(TempNumber : integer; NetworkPath : string);
  162. procedure NFSplit(NetPath : string; var ServerName,Volume,Path,Name,Extent : string);
  163. function  ObjectCanLoginAt(LoginInfo : LoginControlRecord;
  164.                           Day,Hour,Minute : byte) : boolean;
  165. procedure OpenLoginScript(ConnectionID : integer; var ScriptFile : TEXT);
  166. function  ObjectIDHexString(WhichObject : string47; WhatType : integer) : string;
  167. procedure RemoveMemberFromGroup(WhichObject : string47; WhatType : integer;
  168.                                 WhichGroup  : string47);
  169. function  ServerConnectionID(ServerName : string) : integer;
  170. function  VolumeName(NetDrive : char) : string;
  171.